home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)te.d64 / crazy 8's.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  159 lines
  1. 10 REM*CRAZY 8'S BY JOHN O'HARE (PET)
  2. 15 REM*CONVERTED TO THE C64 BY ROGER D. BURGE
  3. 20 REM*#2667, TORONTO PET USERS GROUP   INC., CANADA
  4. 25 QC=211:QL=214:QK=158:QP=151
  5. 30 PRINT"[147]":POKE53280,1:POKE53281,1
  6. 35 A$="CRAZY EIGHT'S"
  7. 40 GOSUB665
  8. 45 S$="[193][211][218][216]8[166][214].":C$=" A 2 3 4 5 6 7 8 9 10J Q K "
  9. 50 A$="BY":GOSUB665
  10. 55 A$="JOHN O'HARE"
  11. 60 GOSUB665:PRINT" COMMODORE 64 VERSION BY ROGER D. BURGE"
  12. 65 DIMC(52)
  13. 70 DIM P1(50),P2(50)
  14. 75 DIM P3(50)
  15. 80 DATA SPADES,8,HEARTS,21,DIAMONDS,34,CLUBS,47
  16. 85 FORI=1TO4:READSU$(I),SU(I):NEXT
  17. 90 FORF=1TO8
  18. 95 A=INT(RND(1)*8)+1:X=ASC(MID$(S$,A,1))
  19. 100 POKEQL,INT(RND(1)*12)+5:PRINT:POKEQC,INT(RND(1)*37)+1:GOSUB650:NEXT
  20. 105 POKEQL,22:PRINT:POKEQC,12
  21. 110 GOSUB715:GOSUB545
  22. 115 W=1
  23. 120 FORI=1TO14STEP2:P1=P1+1:P2=P2+1:P1(P1)=C(I):P2(P2)=C(I+1):NEXT
  24. 125 C1=P1+P2+W
  25. 130 TC=C(C1):Z=TC:PRINT"[147]";
  26. 135 GOSUB465:GOSUB450
  27. 140 POKEQL,14:PRINT:POKEQC,.:INPUT"CARD TO PLAY  [191]  [157][157][157][157][157]";P$
  28. 145 IFP$="Q"THEN680
  29. 150 P=VAL(P$):IFP=.ANDP$<>"D"THENPRINT"[145][145]":GOTO140
  30. 155 IFP$<>"D"THEN175
  31. 160 C1=P1+P2+W:P1=P1+1:IFC1+1>52THENP1=P1-1:GOTO250
  32. 165 P1(P1)=C(C1+1)
  33. 170 GOTO135
  34. 175 IFP>P1THENPRINT"[145][145]":GOTO140
  35. 180 Z=P1(P):GOSUB535
  36. 185 S7=S:C7=C:Z=TC:GOSUB535
  37. 190 IFS7<>SANDC7<>CANDC7<>8THENPRINT"[145][145]":GOTO140
  38. 195 IFC7<>8THEN235                  
  39. 200 INPUT"WHAT SUIT DO YOU DECLARE  [191][157][157][157]";U$:U$=LEFT$(U$,1)
  40. 205 IFU$<>"[193]"ANDU$<>"[211]"ANDU$<>"[218]"ANDU$<>"[216]"THENPRINT"[145][145]":GOTO200
  41. 210 IFU$="[193]"THENTC=8
  42. 215 IFU$="[211]"THENTC=8+13
  43. 220 IFU$="[218]"THENTC=8+13+13
  44. 225 IFU$="[216]"THENTC=8+13+13+13
  45. 230 GOTO 240
  46. 235 TC=P1(P)
  47. 240 W=W+1   
  48. 245 P1(P)=P1(P1):P1=P1-1
  49. 250 PRINT"[145][145]":PRINT"                                     "
  50. 255 GOSUB465:GOSUB450
  51. 260 POKEQL,14:PRINT:POKEQC,.:PRINT"                              "
  52. 265 Z=TC:GOSUB535:S7=S:C7=C
  53. 270 NS=.:FORI=1TOP2:Z=P2(I):GOSUB535:IFS=S7THENNS=NS+1
  54. 275 NEXT
  55. 280 FORI=1TOP2
  56. 285 Z=P2(I):GOSUB535
  57. 290 IFC=8THENP3(I)=-2:GOTO310
  58. 295 IFC=C7THENP3(I)=NS:GOTO310
  59. 300 IFS=S7THENGOSUB360:GOTO310
  60. 305 P3(I)=.
  61. 310 NEXT
  62. 315 SC=-3:PL=.:FORI=1TOP2:IFP3(I)>SCANDP3(I)<>.THENSC=P3(I):PL=I
  63. 320 NEXT
  64. 325 IFSC=-3THEN420
  65. 330 IFSC=-2THEN375
  66. 335 POKEQL,14:PRINT:POKEQC,.
  67. 340 PRINT"I PLAY ";:Z=P2(PL):GOSUB535:PRINTMID$(C$,C*2,2);MID$(S$,S,1)
  68. 345 TC=P2(PL):P2(PL)=P2(P2):P2=P2-1:W=W+1
  69. 350 FORD=1TO750:NEXT:PRINT"[145][145]":PRINT"                  "
  70. 355 GOTO135
  71. 360 P3(I)=.:CT=.:S8=S:FORJ=1TOP2:Z=P2(J):GOSUB535
  72. 365 IFS8=STHENP3(I)=P3(I)+1
  73. 370 NEXT:RETURN
  74. 375 FORS9=1TO4:CT(S9)=.:FORI=1TOP2:Z=P2(I):GOSUB535
  75. 380 IFS=S9ANDC<>8THENCT(S9)=CT(S9)+1
  76. 385 NEXT:NEXT
  77. 390 P7=.:CT=-1:FORI=1TO4:IFCT(I)>CTTHENCT=CT(I):P7=I
  78. 395 NEXT
  79. 400 POKEQL,14:PRINT:POKEQC,.:PRINT"I DECLARE ";SU$(P7)" AS SUIT."
  80. 405 FORD=1TO750:NEXT
  81. 410 PRINT"[145][145]":PRINT"                                      "
  82. 415 TC=SU(P7):P2(PL)=P2(P2):P2=P2-1:W=W+1:GOTO135
  83. 420 POKEQL,14:PRINT:POKEQC,.
  84. 425 C1=P1+P2+W:IFC1+1>52THENPRINT"I CAN'T PLAY":FORD=1TO750:NEXT:PRINT"[145][145]"
  85. 430 IFC1+1>52THENPRINT"                                      ":GOTO135
  86. 435 PRINT"I DRAW A CARD"
  87. 440 FORD=1TO500:NEXT:PRINT"[145][145]":PRINT"              ":P2=P2+1:P2(P2)=C(C1+1)
  88. 445 GOTO280
  89. 450 Z=TC:GOSUB535
  90. 455 POKEQL,16:PRINT:POKEQC,30:PRINT"TOP CARD[146]"
  91. 460 POKEQL,18:PRINT:POKEQC,32:GOSUB600:PRINT"":RETURN
  92. 465 PRINT"";
  93. 470 C1=P1+P2+W
  94. 475 PRINT"CARDS LEFT -";52-C1;"[157]  ";
  95. 480 PRINT"IN MY HAND";P2"[157] "
  96. 485 IFP2=.THENPRINT"---YOUR 64 WINS!!!---":GOTO680
  97. 490 IFP1=.THENPRINT"---YOU WIN!!!!---":GOTO680
  98. 495 PRINT:FORI=1TOP1
  99. 500 I$=MID$(STR$(I),2)
  100. 505 Z=P1(I):GOSUB535:GOSUB670:PRINTI$"-";MID$(C$,C*2,2);MID$(S$,S,1)"[146] ";
  101. 510 IFPOS(.)>33THENPRINT:PRINT
  102. 515 NEXT:PRINT"      ":PRINT
  103. 520 POKEQL,20:PRINT:POKEQC,.:PRINT"[144] JOHN O'HARE "
  104. 525 PRINT"  CRAZY 8'S [144] [146]
  105. 530 [153]" ROGER BURGE WAIT":[142]
  106. 535 S[178][181]((Z[171]1)[173]13)[170]1
  107. 540 C[178](Z[170]13)[171]S[172]13  :[142]
  108. 545 [153]"SHUFFLING...."
  109. 550 [129]I[178]1[164]52
  110. 555 C(I)[178]I
  111. 560 [130]I
  112. 565 [129]I[178]1[164]52
  113. 570 J[178][181]([187](1)[172]52)[170]1
  114. 575 TEMP[178]C(J)
  115. 580 C(J)[178]C(I)
  116. 585 C(I)[178]TEMP
  117. 590 [130]I
  118. 595 [142]
  119. 600 [139]S[178]1[176]S[178]4[167][151]646,.:[137]610
  120. 605 [151]646,2
  121. 610 [153]"";[202](C$,C[172]2,2);" ";"CMDCMDCMD";
  122. 615 [153]"   WAIT";"CMDCMDCMD";
  123. 620 [153]" ";[202](S$,S,1);" WAIT";"CMDCMDCMD";
  124. 625 [153]"   WAIT";"CMDCMDCMD";
  125. 630 [139]C[178]10[167]640
  126. 635 [153]"  ";[202](C$,C[172]2,1):[137]645
  127. 640 [153]" 10WAIT"
  128. 645 [151]646,6:[142]
  129. 650 [129]I[178]1[164]3:[153][199](X);:[130]:[153]"CMDCMDCMD";[199](X);" ";[199](X);"CMDCMDCMD";
  130. 655 [129]I[178]1[164]3:[153][199](X);:[130]:[153]"CMDCMDCMD";[199](X)" ";[199](X);"CMDCMDCMD";
  131. 660 [129]I[178]1[164]3:[153][199](X);:[130]:[153]:[142]
  132. 665 [153][163]20[171][195](A$)[173]2);A$:[142]
  133. 670 [139]S[178]2[176]S[178]3[167][151]646,2:[142]
  134. 675 [151]646,.:[142]
  135. 680 [139]P$[178]"Q"[175]C1[178]52[167][153]"---IT'S A TIE!!!---"
  136. 685 [153]" PLAY AGAIN? (Y/N) ":[151]198,.
  137. 690 [161]A$:[139]A$[178]"Y"[167][138]
  138. 695 [139]A$[178]"N"[167]705
  139. 700 [137]690
  140. 705 [151]53280,3:[153]"LOAD":[128]
  141. 715 [153]"CMDCMDNEED INSTRUCTIONS? (Y/N)":[151]198,.
  142. 720 [161]K$:[139]K$[178]"Y"[167]735
  143. 725 [139]K$[178]"N"[167][153]"LOAD":[142]
  144. 730 [137]720
  145. 735 [153]"LOAD"[166]15)" CRAZY  8'S "
  146. 740 [153]"PLAY THE CARD GAME CRAZY 8'S AGAINST   YOUR 64.
  147. 745 PRINT"YOUR 64 WILL PROMPT YOU THROUGH THE    GAME.
  148. 750 [153]"IF YOU DON'T HAVE A CARD IN YOUR HAND  YOU CAN PLAY THEN ENTER DWAIT";
  149. 755 [153]" (FOR 'DRAW    CARD') WHEN ASKED WHICH CARD TO PLAY.
  150. 760 PRINT"IF THERE ARE NO CARDS LEFT IN THE DECK THEN YOUR 64 WILL TAKE A TURN.
  151. 765 [153]"IF YOU OR YOUR 64 CANNOT PLAY AND THEREARE NO CARDS LEFT ";
  152. 770 [153]"THEN ENTER QWAIT AND A TIEWILL BE DECLARED.
  153. 775 PRINT"ENTER Q[146] ANYTIME TO END THE GAME.
  154. 780 [153]"WHEN YOU PLAY AN '8' YOU WILL BE ASKED TO DECLARE A SUIT. ENTER ";
  155. 785 [153]"ATN (null) (null) OR (null) AS  YOUR CHOICE MAY BE.
  156. 790 PRINT"         PRESS ANY KEY TO PLAY.         ":POKE198,.
  157. 795 GETK$:IFK$=""THEN795
  158. 800 PRINT"[147]":RETURN
  159.